SELECT tree&
CASE menu&
  SELECT object&
  CASE menuabou&
    ' "šber mich..." wurde angeklickt
    ' => Infodialog anzeigen
    LET prginfo_dialog&=@win_open_dialog(2,prginfo&,icfyicon&)
    ' als erster Parameter nun 2 => nonmodaler Dialog
    ' als dritter Parameter: Baumname des Iconifyicons
  CASE menuquit&
    exit_program!=TRUE
  ENDSELECT
CASE prginfo&
  SELECT object&
  CASE infook&
    ' Der OK-Button wurde angeklickt
    ' => Infodialog schliežen
    @win_close(prginfo_dialog&)
  ENDSELECT
ENDSELECT